home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / finnslator / fix.hex < prev   
Text File  |  1980-01-03  |  2KB  |  59 lines
  1.   file$="fix" : 'v2.11
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7. Beyond:
  8.   i=INSTR(x$," ")
  9.   IF i>0 THEN
  10.     x$=LEFT$(x$,i-1)+MID$(x$,i+1)
  11.     GOTO Beyond
  12.   END IF
  13.   x$=UCASE$(x$)
  14.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  15.   sum=0
  16.   FOR i=1 TO LEN(x$)
  17.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  18.   NEXT i
  19.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  20.     PRINT "Checksum error in line";lin
  21.     GOTO Endeth
  22.   END IF
  23.   x$=a$+x$ : a$=""
  24.   FOR i=1 TO LEN(x$) STEP 2
  25.     IF MID$(x$,i,1) = "G" THEN
  26.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  27.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
  28.       i=i+2
  29.     ELSE
  30.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  31.     END IF
  32.     PRINT #1,y$;
  33.   NEXT i
  34.   GOTO Loop
  35.  
  36. Endeth:
  37.   CLOSE #1
  38.   PRINT "Operation complete"
  39.   END
  40.  
  41. 1     DATA ga0003 f3gf00 01gj00 6cga00 03e9gb 006c4e 54ffec 42acff fc42ac 0f
  42. 2     DATA fff842 acfff4 42acff f042ac ffec29 48fff8 423008 ff48e7 c0c220 99
  43. 3     DATA 3cga00 100422 3c0001 00012c 780004 4eaeff 3a2940 fff066 084cdf e3
  44. 4     DATA 430360 ga00c4 204020 fcga00 100429 48ffec 4cdf43 0343fa 01242c 94
  45. 5     DATA 780004 4eaefe 682940 fffc67 ga00a0 222cff f8243c ga0003 ed2c6c 01
  46. 6     DATA fffc4e aeffe2 2940ff f4676e 7e007c 0045fa 01002a 077000 720008 26
  47. 7     DATA c1000c 2c7800 044eae fece08 ga000c 664e61 ga00aa 656012 1a6706 5a
  48. 8     DATA b00167 dc60d4 222cff f42405 76ff2c 6cfffc 4eaeff be4a80 6b2a41 df
  49. 9     DATA fa00d3 222cff f42408 760a4e aeffd0 222cff f42405 2e0576 ff2c6c 64
  50. 10    DATA fffc4e aeffbe 4a806b 047c00 60962c 6cfffc 4eaeff c42200 670c41 88
  51. 11    DATA fa00a8 240876 064eae ffd022 2cfff4 67082c 6cfffc 4eaeff dc202c 45
  52. 12    DATA fffc67 0e2240 2c7800 044eae fe6242 acfffc 48e7c0 c2202c fff067 3b
  53. 13    DATA 102240 20112c 780004 4eaeff 2e42ac fff04c df4303 70004e 5c4e75 e8
  54. 14    DATA 4a8666 ga222c fff424 2cffec 2a4226 3cga00 10002c 6cfffc 4eaeff f0
  55. 15    DATA d62c00 6e0600 3c0001 4e7553 865287 101d4e 75646f 732e6c 696272 72
  56. 16    DATA 617279 007472 616e73 6c6174 6f722e 6c6962 726172 790066 69ga6e e5
  57. 17    DATA 736c61 746f72 0065ga 726f72 0aga00 4e71ga 0003f2 45
  58.       DATA **
  59.